Option Explicit
'OҲAppEventCls
Public WithEvents myApp As Application
Private Sub myApp_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
    MsgBox Wb.Name & "QxsFC by Application"
End Sub

'зǼҲ
Dim myAppCls As New AppEventCls
Sub InitializeAppEvent()
Set myAppCls.myApp = Application
End Sub
